'Reaktionstest
     'written August 1988 by Michael Gottwald
     
Start: SCREEN 1,640,200,3,2:WINDOW 1,"Reaktionstest",,8,1:DIM bg(9)
  PALETTE 0,0,0.5,0.5:PALETTE 3,0.33,0.8,0:PALETTE 4,0,0,0:PALETTE 5,1,0,0
  PALETTE 6,1,0.4,0.4:PALETTE 7,1,0.7,0.7:x=385:y=64:FOR i=5 TO 7
  LINE (x,186)-(630,y),i:bg(0)=0.9424:bg(1)=1.5707:bg(2)=2.1991
  bg(3)=3.7996:bg(4)=6.2831:bg(5)=2:bg(6)=3:bg(7)=7:bg(8)=6:bg(9)=5   
  LINE -(630,y+30),i:LINE -(x+60,186),i:LINE -(x,186),i:PAINT (x+5,185),i,i
  x=x+61:y=y+31:NEXT:w$="REAKTIONSTEST":c=5:LOCATE 5,20
  FOR i=1 TO 13:COLOR 2,c:PRINT" ";MID$(w$,i,1);" ";
  IF c=7 THEN c=4
  c=c+1:NEXT:COLOR 1,0:LOCATE 8,1:PRINT" Mit diesem Programm können Sie Ihre";
  PRINT" Reaktion testen !":PRINT:PRINT" Wenn die grüne Scheibe rot wird,";
  PRINT" drücken Sie die rechte ALT-Taste.":PRINT:PRINT" Viel Vergnügen !"
  LOCATE 19,23:COLOR 2,0:PRINT"© 1988 written by Michael Gottwald" 
 SLEEP:SLEEP
  CLS:PRINT" Wenn die Scheibe rot wird, rechte ALT-Taste drücken..."
  CIRCLE (130,93),100,3:PAINT (160,93),3,3:CIRCLE (430,93),180,1
  PALETTE 2,0.53,1,0:f=1:GOSUB Segmente:f=0
  PAINT (511,130),2,1:PAINT (542,114),3,1
  PAINT (539,75),7,1:PAINT (435,45),6,1:PAINT (397,104),5,1:GOSUB Segmente
Aufbau: CIRCLE (x,y),180,0:LOCATE 18,60
  COLOR 4,2:PRINT"Sehr gut":LOCATE 14,66:COLOR 4,3:PRINT"Gut":LOCATE 11,62
  COLOR 4,7:PRINT"Befriedigend":LOCATE 6,52:COLOR 4,6:PRINT"Schlecht"
  LOCATE 13,38:COLOR 4,5:PRINT"Mangelhaft":RANDOMIZE TIMER:z=2+RND*4
  FOR i=0 TO z*1000:NEXT:PAINT (130,93),5,0:t=TIMER:CIRCLE (x,y),5,1
  PAINT (x,y),1,1
  WHILE PEEK(12577793)<>53:WEND:rt=TIMER-t:COLOR 1,0
  LOCATE 20,2:PRINT"Reaktionszeit = "rt" Sekunden":IF rt>1 THEN rt=0.997
  xp=x+SIN(rt*6.283)*178:yp=y+COS(rt*6.283)*77:c=POINT(xp,yp)
  LINE (x,y)-(xp,yp),1:PRINT"  Nochmal (J/N) ?"
Taste: k$=INKEY$:IF k$="j"THEN Erneuern
       IF k$="n"THEN PRINT "Tschüss...":END
     GOTO Taste 
Erneuern: LINE (x,y)-(xp,yp),c:PAINT (130,93),3,0:LOCATE 20,18
         PRINT"                    ":GOTO Aufbau 
Segmente: x=430:y=93:FOR i=0 TO 4:IF f=1 THEN c=1 :ELSE c=bg(5+i)
  xz=x+SIN(bg(i))*180:yz=y+COS(bg(i))*79.2:LINE (x,y)-(xz,yz),c:NEXT
 RETURN